The GRIB_SET procedure sets the value of a scalar key in a GRIB message.
GRIB_SET, Ghandle, Key, Value
The GRIB file handle.
The key name, which must be a case-sensitive string.
The key value to set (must be a scalar value). Value is set as the native type.
This example procedure reads the GRIB file filename_in, sets key/value pairs, and writes the output to the file filename_out.
Set the KEY keyword to a case-sensitive string. If KEY is set, VALUE must be set.
Set the VALUE keyword to the KEY value. If VALUE is set, KEY must be set.
PRO GRIB_WRITE_EX, filename_in, filename_out, KEY=key, VALUE=value
ON_ERROR, 2
IF(filename_in EQ !null) THEN MESSAGE, 'File is undefined.'
IF(filename_out EQ !null) THEN MESSAGE, 'File is undefined.'
IF(ARG_PRESENT(key) AND ~ ARG_PRESENT(value)) $
THEN MESSAGE, 'If key is set then value has to be set.'
IF(ARG_PRESENT(value) AND ~ ARG_PRESENT(key)) $
THEN MESSAGE, 'If value is set then key has to be set.'
fin = GRIB_OPEN(filename_in)
h = GRIB_NEW_FROM_FILE(fin)
IF (ARG_PRESENT(key)) THEN BEGIN
IF (ISA(value, /ARRAY)) THEN GRIB_SET_ARRAY, h, key, value $
ELSE GRIB_SET, h, key, value
ENDIF
GRIB_WRITE_MESSAGE, filename_out, h
GRIB_RELEASE, h
GRIB_CLOSE, fin
END
|
8.1 |
Introduced |